inherited frm_GerSerasa: Tfrm_GerSerasa
  Left = 173
  Top = 182
  AutoSize = True
  Caption = 'Gerar Remessa SERASA'
  ClientHeight = 323
  ClientWidth = 535
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 535
    Height = 150
    Align = alTop
    object Label2: TLabel
      Left = 8
      Top = 108
      Width = 80
      Height = 14
      Caption = 'Salvar arquivo:'
    end
    object Label3: TLabel
      Left = 324
      Top = 108
      Width = 98
      Height = 14
      Caption = 'Nome do Arquivo:'
    end
    object pb: TGauge
      Left = 9
      Top = 150
      Width = 513
      Height = 20
      ForeColor = clNavy
      Progress = 0
    end
    object rgMov: TRadioGroup
      Left = 6
      Top = 46
      Width = 250
      Height = 57
      Caption = 'Movimenta'#231#227'o:'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'D - Di'#225'ria'
        'M - Mensal'
        'S - Semanal'
        'Q - Quinzenal')
      TabOrder = 1
    end
    object GroupBox1: TGroupBox
      Left = 259
      Top = 46
      Width = 269
      Height = 57
      Caption = 'Per'#237'odo'
      TabOrder = 2
      object Label1: TLabel
        Left = 131
        Top = 24
        Width = 6
        Height = 14
        Caption = 'a'
      end
      object ed_dataini: TDateEdit
        Left = 7
        Top = 20
        Width = 121
        Height = 21
        NumGlyphs = 2
        TabOrder = 0
        OnExit = ed_datainiExit
        OnKeyDown = ed_datainiKeyDown
      end
      object ed_datafim: TDateEdit
        Left = 141
        Top = 20
        Width = 121
        Height = 21
        NumGlyphs = 2
        TabOrder = 1
        OnExit = ed_datafimExit
        OnKeyDown = ed_datafimKeyDown
      end
    end
    object edDir: TDirectoryEdit
      Left = 8
      Top = 124
      Width = 311
      Height = 21
      CharCase = ecUpperCase
      NumGlyphs = 1
      TabOrder = 3
      OnExit = edDirExit
    end
    object edNome: TEdit
      Left = 324
      Top = 124
      Width = 197
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 4
    end
    object rgTipo: TRadioGroup
      Left = 6
      Top = 4
      Width = 251
      Height = 37
      Caption = 'Tipo de Remessa'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Normal'
        'Corre'#231#227'o')
      TabOrder = 0
    end
    object rgLayout: TRadioGroup
      Left = 262
      Top = 4
      Width = 266
      Height = 37
      Caption = 'Layout'
      Columns = 2
      ItemIndex = 1
      Items.Strings = (
        'Antigo'
        'Novo')
      TabOrder = 5
    end
  end
  inherited Panel2: TPanel
    Top = 256
    Width = 535
    Align = alTop
    inherited bimprimir: TFlatButton
      Caption = '&Gerar'
      Enabled = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      OnClick = btncancelarClick
    end
  end
  inherited sb: TStatusBar
    Top = 304
    Width = 535
    Align = alTop
  end
  inherited Panel3: TPanel
    Width = 535
    inherited ListaEmp: TCheckListBox
      OnExit = ListaEmpExit
    end
  end
  inherited RDP: TRDprint
    OnNewPage = RDPNewPage
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 328
    Top = 60
    object CDSEntidade: TStringField
      FieldName = 'Entidade'
      Size = 50
    end
    object CDSTipo: TStringField
      FieldName = 'Tipo'
    end
    object CDSNumTit: TStringField
      FieldName = 'NumTit'
    end
    object CDSErro: TIntegerField
      FieldName = 'Erro'
    end
    object CDSEmiss: TDateField
      FieldName = 'Emiss'
    end
    object CDSVcto: TDateField
      FieldName = 'Vcto'
    end
    object CDSPgto: TDateField
      FieldName = 'Pgto'
    end
  end
end
